home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03105_Script_3105 < prev    next >
Text File  |  1983-01-27  |  160b  |  12 lines

  1.  
  2. on estrai_linea str
  3.   set off1 to offset (return,str)
  4.   if off1 >0 then
  5.     return char 1 to off1-1 of str
  6.   else
  7.     return ""
  8.   end if
  9.   
  10.   
  11. end
  12.